home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / VENDOR.SAB < prev    next >
Text File  |  1990-06-21  |  479b  |  24 lines
  1. set messages off
  2. set error message off
  3. set null " "
  4. label start
  5. cls
  6. DISPLAY CP.DIS
  7. WRITE "VENDOR.SAB" AT 2,36
  8. WRITE .USE AT 2,55
  9. write "Expenses By Vendor" at 5,31
  10. set v name to ""
  11. fillin name using "Enter All Or A Portion Of Vendor (or <ESC>)  " at 8,10
  12.   if name = "" then ; GOTO STOP ; ENDIF
  13. cls
  14.   output printer
  15.   print vendlist sorted by date where vendor contains .name
  16.   NEWPAGE
  17.   CLEAR ALL V
  18.   output screen
  19. goto start
  20. label STOP
  21.   cls
  22.   return
  23.  
  24.